home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_300 / 398_01 / t6808e.asm < prev    next >
Encoding:
Assembly Source File  |  1993-08-06  |  2.0 KB  |  133 lines
  1.     .title    AS6808 Error Test
  2.  
  3.     .area    DIRECT
  4.  
  5.     .setdp    0,DIRECT
  6.  
  7.     bit0    =    0
  8.     bit1    =    1
  9.     bit2    =    2
  10.     bit3    =    3
  11.     bit4    =    4
  12.     bit5    =    5
  13.     bit6    =    6
  14.     bit7    =    7
  15.  
  16.     ext = 0x0123
  17.     ix2 = 0xABCD
  18.     ix1 = 0x00EF
  19.  
  20. begin:    .byte    0
  21. loca:    .byte    0
  22. locb:    .byte    0
  23. locc:    .byte    0
  24. locd:    .byte    0
  25. loce:    .byte    0
  26.  
  27.  
  28.     .area    AS6808A
  29.  
  30. 1$:    jsr    28$        ; CD __ __
  31.     jmp    28$        ; CC __ __
  32.     sub    28$        ; C0 __ __
  33.  
  34.     jsr    29$        ; CD 00 00
  35.     jmp    30$        ; CC 00 03
  36.     sub    31$        ; C0 00 06
  37.  
  38.  
  39.     .page
  40.  
  41.     . = 1$+256
  42.  
  43.     ; Illegal Modes for:
  44.     ;    neg, com, lsr, ror,
  45.     ;    asr, lsl, rol, asl,
  46.     ;    dec, inc, tst and clr
  47.  
  48.     neg    ,s        ;a
  49.     neg    ix2,x        ; will cause a link error
  50.     neg    ix2,s        ; will cause a link error
  51.     neg    ,x+        ;a
  52.     neg    ix1,x+        ;a
  53.  
  54.     ; Illegal Modes for:
  55.     ;    sub, cmp, sbc, cpx,
  56.     ;    and, bit, lda, sta,
  57.     ;    eor, adc, ora, add,
  58.     ;    jmp, jsr, ldx, and stx
  59.  
  60.     sub    ,s        ;a
  61.     sub    ,x+        ;a
  62.     sub    ix1,x+        ;a
  63.  
  64.     ; Additional Illegal Modes for:
  65.     ;    sta and stx
  66.  
  67.     sta    #0        ;a
  68.  
  69.     ; Additional Illegal Modes for:
  70.     ;    jmp and jsr
  71.  
  72.     jmp    #0        ;a
  73.     jmp    ix2,s        ;a
  74.     jmp    ix1,s        ;a
  75.     jmp    ,x+        ;a
  76.     jmp    ix1,x+        ;a
  77.  
  78.     ; Illegal Modes for:
  79.     ;    cbeqa and cbeqx
  80.  
  81. 2$:    cbeqa    *loca,2$    ;a
  82. 3$:    cbeqa    ,x,3$        ;a
  83. 4$:    cbeqa    ix1,x,4$    ;a
  84. 5$:    cbeqa    ix2,x,5$    ;a
  85. 6$:    cbeqa    ,x+,6$        ;a
  86. 7$:    cbeqa    ix1,x+,7$    ;a
  87. 8$:    cbeqa    ix1,s,8$    ;a
  88. 9$:    cbeqa    ix2,s,9$    ;a
  89.  
  90.     ; Illegal Modes for:
  91.     ;    cbeq
  92.  
  93. 10$:    cbeq    #0x21,10$    ;a
  94. 11$:    cbeq    ,x,11$        ;a
  95. 12$:    cbeq    ix1,x,12$    ;a
  96. 13$:    cbeq    ix2,x,13$    ;a
  97. 14$:    cbeq    ix2,s,14$    ; will cause a linker error
  98.  
  99.     ; Illegal Modes for:
  100.     ;    dbnza and dbnzx
  101.  
  102. 15$:    dbnza    *loca,15$    ;q
  103. 16$:    dbnza    ,x,16$        ;q
  104. 17$:    dbnza    ix1,x,17$    ;q
  105. 18$:    dbnza    ix2,x,18$    ;aq
  106. 19$:    dbnza    ,x+,19$        ;q
  107. 20$:    dbnza    ix1,x+,20$    ;q
  108. 21$:    dbnza    ix1,s,21$    ;q
  109. 22$:    dbnza    ix2,s,22$    ;aq
  110.  
  111.     ; Illegal Modes for:
  112.     ;    dbnz
  113.  
  114. 23$:    dbnz    #0x21,23$    ;a
  115. 24$:    dbnz    ,x+,24$        ;a
  116. 25$:    dbnz    ix1,x+,25$    ;a
  117. 26$:    dbnz    ix2,x+,26$    ;a
  118. 27$:    dbnz    ix2,s,27$    ; will cause a linker error
  119.  
  120.  
  121.     .page
  122.  
  123. 28$:    jsr    *begin        ; BD __
  124.     jmp    *begin        ; BC __
  125.     sub    *begin        ; B0 __
  126.  
  127.     .area    AS6808B
  128.  
  129. 29$:    jsr    1$        ; CD __ __
  130. 30$:    jmp    1$        ; CC __ __
  131. 31$:    sub    1$        ; C0 __ __
  132.  
  133.